Top 10k strings from MicroHobby Semanal - Issue 049-052 (1985)(Hobby Press)(es)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 y1,ki;" ";
   3 vidas=vidas-1
   3 ;" PARE LA CINTA ":
   2 ;"PARE LA CINTA":
   2 ;"(pulsa una tecla)":
   2 ;" REBOBINE LA CINTA Y PULSE PLAY ":
   2 ;"  PUNTUACION: ";score;
   2 ;"  PUNTUACION:           ";
   2 ;"     DESEA VERIFICAR (S/N)      ":
   2 : ";vidas;" ":
   2 450m)=> ";dato:
   2 ***********************
   2 (NPROG/DOS)
   2 "NOMBRE (Save)",
   2 "22",CERO;B$:
   1 yy,dd;" ":
   1 yg=(dg/500
   1 y1,ki;"|";
   1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz
   1 xg,yg;"  ";
   1 vamos alla
   1 trazado de la cruz indicadora
   1 score=score-150
   1 score=score+50
   1 score=score+1000
   1 r$="CPU Z80"
   1 q(i,j)=qq:
   1 q(i)=s*(-q(i)) :
   1 pozos y plantas
   1 p(pro,i)>7
   1 p(pro,i)=6
   1 p(i),q(i):
   1 o(w),p(w);"
   1 o(q),p(q);"
   1 micro     
   1 let=p(pro,i):
   1 j=jjj*i*(ax-i)
   1 i(q),h(q);"
   1 hx=hmax*255
   1 hmax=v0*v0*
   1 hmax;"m. Alcance ";
   1 hierbas=60
   1 dato>M(co,2
   1 dato=M(co,4
   1 dato=M(co,3
   1 dato<M(co,2
   1 d(i)=s*(d(i)
   1 creadata  "
   1 comprobacion contacto con pozos o hierbas
   1 c$="                                ":
   1 c$(I),c(I),d(I) :
   1 ax=dis*255
   1 alfag=dato:
   1 alfa=alfag/180
   1 VOLCADO COMPLETO
   1 UNO;"PONGA EN MARCHA LA CINTA";
   1 Tanden    
   1 TZX por Manuel Gomez Amate
   1 SUBRUTINA MEMORIA VACIA
   1 SPACE-UNO,X1
   1 SPACE-UNO,CERO:
   1 SPACE,LINEA:
   1 SPACE,CERO:
   1 Programa de Geografia
   1 Parabo    
   1 MOVIMIENTO PARABOLICO
   1 MENU PRINCIPAL
   1 La cruz   
   1 JUAN LACLOS HUSILLOS C/ DONANTES DE SANGRE,1,1, 34005 PALENCIA
   1 Instrucciones
   1 INTRODUCE DATOS:
   1 INSTRUCCIONES
   1 I,CERO;,,:
   1 Hobby Press
   1 Geograf   
   1 FUNDAMENTO TEORICO
   1 EXPERIMENTACION
   1 Datador   
   1 DOS=UNO+UNO
   1 DIRECCIONES
   1 Castellano
   1 Cargador  \
   1 Cargador  A
   1 CINTA 13 CARA A
   1 CERO;"       ";
   1 CARGADOR CM MICROHOBBY
   1 CARA A    
   1 C$="  Por favor, elija un programa  "
   1 BUCLE PRINCIPAL
   1 B$="                                "
   1 ="L")-(378
   1 = SUBIR"'"
   1 = SALIR DE LA NAVE NODRIZA"'''"PULSA UNA TECLA PARA JUGAR":
   1 = IZQUIERDA"'"
   1 = DERECHA"'"
   1 ;dato;"   ":
   1 ;c(i)+j,d(i)+k:
   1 ;a$(p(pro,i))
   1 ;"utiliza por orden las ec. ";
   1 ;"pulsar la tecla ENTER"
   1 ;"pulsa una tecla para disparar":
   1 ;"pulsa una tecla para disparar"':
   1 ;"dist. globo: ";M(4
   1 ;"dist. casa:  ";M(5
   1 ;"alt. globo:  ";M(3
   1 ;"Y= V0.sen
   1 ;"X= V0.cos
   1 ;"Vel.inicial: ";M(1
   1 ;"VOLCANDO EN MEMORIA":
   1 ;"Ultima linea: ";li-1
   1 ;"Te has pasado, tio!":
   1 ;"TRES ASTRONAUTAS SE HAN ESTRE-  LLADO EN LA LUNA Y TU MISION    ES RESCATARLES.PERO EN LA NAVE  DE SALVAMENTO SOLO CABE UN      ASTRONAUTA,ASI QUE TENDRAS  QUE HACER TRES VIAJES."''"PULSA UNA TECLA":
   1 ;"TE HAS QUEDADO SIN PUNTOS":
   1 ;"Seguimos jugando  (s/n)?":
   1 ;"SALVASTE A TODOS LOS ASTRONAUTASPERO AHORA SERA MAS DIFICIL POR QUE TU NAVE SE HA AVERIADO Y NO TIENES FUEL":
   1 ;"RECORD:";" ";score;" ";
   1 ;"REBOBINE LA CINTA PARA VERIFICAR":
   1 ;"Para desplazarte utiliza:":
   1 ;"PUNTOS=       FUEL=    NAVES 
   1 ;"PULSE UNA TECLA                 ":
   1 ;"PULSE LA TECLA DE MOVIMIENTO":
   1 ;"PULSE CUALQUIER TECLA."
   1 ;"PULSA UNA TECLA":
   1 ;"PARA CONSEGUIR ATERRIZAR PRIMEROTIENES QUE PASAR POR LA BARRERA DE METEORITOS Y LUEGO ATERRIZAR EL LAS PLATAFORMAS,CADA PLATAFORMA SOLO SE PUEDE USAR 1 VEZ.    LUEGO PARA SUBIR TENDRAS QUE    ESQUIBAR A LAS NAVES ENEMIGAS   "
   1 ;"OTRA PARTIDA S/N"
   1 ;"O para otro disparo";
   1 ;"N.BYTES ";nb
   1 ;"Le han matado a los 3 hombreci- tos.";
   1 ;"La Iglesia de la llanura de la muerte esta poseida por peli-grosos seres y rodeada de aguje-ros y plantas; no te fies de    ellos!. Huye y rescata la cruz.    Intentaran impedirlo.                  Suerte!!"
   1 ;"LINEA ";li
   1 ;"LINEA ";
   1 ;"LA TECLA DE DISPARO NO ACTUA.";
   1 ;"GAME OVER":
   1 ;"FIN JUEGO":
   1 ;"Estupendo, lo ha hecho muy bien,se le ha nombrado poseedor del  tesoro de la llanura.           Se atreve a probarlo de nuevo   (s/n)":
   1 ;"Es una pena. No logro matar el  suficiente numero de atacantes  como para merecer ser nombrado  guerrero mayor de la llanura.   Usted decide:                   Quiere comenzar de nuevo el     juego (pulse 
   1 ;"En la primera fase del rescate  (pantalla 1), tienes que matar  el mayor numero de atacantes si quieres poder pasar a la panta- lla 2; estos atacantes (36 en   total); aparecen al azar.       En la segunda pantalla has de   llegar hasta la cruz, y ponerte debajo o encima de ella, pero   has de evitar las plantas y los pozos. Es posible que alguna    planta te reste mas puntos de   los debidos; eso es porque ha-  bian unas plantas encima de     otras. Tambien es posible que   al pisar una planta te quite 1  vida; es porque la planta nacio encima de un pozo."
   1 ;"ESPERE UN MOMENTO.":
   1 ;"ESPERE UN MOMENTO":
   1 ;"ESPERE UN MOMENTO"
   1 ;"ESPACIO DE TRABAJO":
   1 ;"ENHORABUENA.";
   1 ;"ELIMINADO";
   1 ;"EL MEJOR = ";
   1 ;"E empieza de nuevo"
   1 ;"Direccion Inicial: ";di
   1 ;"Desde este momento queda nombra-do guerrero mayor de la llanura ,y por ese motivo tiene la obli-gacion de rescatar la cruz de   la iglesia, sorteando los po-   zos y las  plantas venenosas.   Los pozos le restaran una vida; las plantas  le quitaran 150    puntos.                                    SUERTE!!":
   1 ;"DIRECCION ";di,
   1 ;"Cuidado, algunas plantas nacen  encima de pozos; doble castigo!"
   1 ;"Comenzar por: ";li
   1 ;"CUALQUIER TECLA PARA CONTINUAR":
   1 ;"CUALQUIER TECLA PARA CONTINUAR"
   1 ;"CUALQUIER TECLA PARA COMENZAR.":
   1 ;"CUALQUIER TECLA PARA COMENZAR."
   1 ;"CUALQUIER TECLA PARA COMENZAR":
   1 ;"CONSEJO: Si caes en un pozo,este aparece de nuevo, las plantas  no, pero siguen quitando puntos.";
   1 ;"CON = ";re
   1 ;"Bienvenidos al programa" : 
   1 ;"Altura maxima ";
   1 ;"Acabaron con sus 3 vidas.       Pulse cualquier tecla para      comenzar":
   1 ;"3)Propuesta de problemas."
   1 ;"2)Experimentacion y comproba-     cion de resultados de pro-      blemas.";
   1 ;"1)Breve explicacion teorica.";
   1 ;"-Y uno vertical (segun Y) uni- formemente decelerado:"
   1 ;"-Uno horizontal, (segun X), con  velocidad cte y ecuacion:"
   1 ;"-SE PIDE-"
   1 ;"-R para repetir situacion";
   1 ;"-Para obtener el alcance del   disparo, hacemos Y=0 en (3) y   obtenemos X:"
   1 ;"-PULSA:"
   1 ;"-P para la situacion propues-   ta en el problema"
   1 ;"-Las distancias que quieras";
   1 ;"-La situacion del globo y la casa se fija introduciendo:"
   1 ;"-La altura maxima se obtiene enel centro de la parabola. Haciendo en (3) X=Xmax/2 tenemos:"
   1 ;"-El movimiento parabolico es su-ma de dos movimientos:"
   1 ;"-Dividiendo (2)/(1) obtenemos  la trayectoria:"
   1 ;"-DATOS-";
   1 ;"-Aqui puedes practicar disparossobre un globo y una casa,intro-duciendo la velocidad inicial y el angulo inicial."
   1 ;"-A para situacion arbitraria";
   1 ;"(puedes pulsar A para ayuda)"
   1 ;"(Ya que 2sen
   1 ;" TIEMPO ":
   1 ;" PARE EL CASSETTE "
   1 ;" NO EXISTE NINGUN CODIGO FUENTE ":
   1 ;" GEOGRAFIA " :
   1 ;" (pulsa una tecla para volver)":
   1 ;" (Ver primero si hay solucion)"
   1 ;"  FUENTE(F) OBJETO(O) RETURN(R) "
   1 ;"   INPUT LOAD SAVE DUMP TEST    "
   1 ;"   C  O  N  T  R  O  L  E  S    "'''"
   1 ;"        ":
   1 ;"                             ":
   1 :    ";M(2
   1 8888888888888888888888888888888888888888888888888888888888888888
   1 340m)=> ";dato:
   1 .t            (1)"
   1 ..Izquierda.   
   1 ..Derecha.";
   1 ..Arriba.    
   1 ..Abajo.":
   1 ,n;"    ";
   1 ,n;"    ":
   1 ,D.L.: M-36598-84
   1 ,"Zamora",96
   1 ,"Vitoria",139
   1 ,"Valladolid",122
   1 ,"Valencia",176
   1 ,"Toledo",124
   1 ,"Teruel",167
   1 ,"Soria",145
   1 ,"SanSebastian",148
   1 ,"Salamanca",98
   1 ,"Pontevedra",53
   1 ,"Oviedo",94
   1 ,"Orense",65
   1 ,"Murcia",169
   1 ,"Malaga",118
   1 ,"Madrid",127
   1 ,"Lugo",70
   1 ,"Logrono",143
   1 ,"Lerida",189
   1 ,"Leon",93
   1 ,"Jaen",128
   1 ,"Huesca",173
   1 ,"Huelva",80
   1 ,"Guadalajara",135
   1 ,"Granada",132
   1 ,"Gerona",221
   1 ,"Cordoba",113
   1 ,"CiudadReal",125
   1 ,"Castellon",182
   1 ,"Cadiz",92
   1 ,"Caceres",88
   1 ,"Burgos",126
   1 ,"Bilbao",135
   1 ,"Barcelona",208
   1 ,"Badajoz",78
   1 ,"Avila",113
   1 ,"Almeria",150
   1 ,"Alicante",177
   1 *hx/ax/ax:
   1 *alfa)*v0*v0/9.81
   1 *** CINTA-MICROHOBBY ***
   1 )=a$+c$+a$+c$+a$+c$+a$
   1 )="Volar el globo y la casa:":
   1 )="-volar la casa:":
   1 )="-volar el globo:"
   1 )="-tiempo t de impacto"
   1 )="-distancia hasta el globo":
   1 )="-distancia a la casa":
   1 )="-angulo 
   1 )="-altura del globo":
   1 )="-Vel. inicial V0":
   1 )="(dar sus coordenadas)"
   1 );" y ";q(pro,2
   1 )-p(i),q(i)-q(i+1
   1 ),                o deja de jugar (pulse 
   1 (VALOR)<"A"
   1 ((x-c(i))*(x-c(i))+(y-d(i))*(y-d(i)))
   1 "situa la ciudad de ";c$(b)
   1 "pantalla"
   1 "mirare si vuestra respuesta es ":
   1 "distancia globo (
   1 "distancia casa (
   1 "corecta...OK?"
   1 "altura globo (
   1 "Zaragoza",168
   1 "Vel. inicial (m/s)   V0= ";dato:
   1 "Vamos a practicar un poco de geografia."
   1 "Tarragona",197
   1 "Sevilla",96
   1 "Segovia",120
   1 "Santander",122
   1 "Recordad que las flechas sirven para mover el cursor sobre la ":
   1 "Pulsa una tecla" 
   1 "Primera Posicion a datar ";a
   1 "Pamplona",155
   1 "Palencia",114
   1 "NOMBRE (Load)",
   1 "MicroHobby Semanal numeros 49 a 52
   1 "Lo siento, la ciudad mas proxima es ";c$(k):
   1 "La puntuacion total  es: ";u:
   1 "La Coruna",56
   1 "Enhorabuena, lo acertaste":
   1 "E-Cargador","F-Parabo"
   1 "DIRECCION ",di:
   1 "Cuenca",151
   1 "Cuando pulseis la tecla -ENTER":
   1 "Correcto, pero la proxima vez ajusta mas el cursor":
   1 "Cantidad de Bytes a datar ";b
   1 "CONTROL ",ct
   1 "CONSEGUISTE MEJORAR ESCRIBE TU  NOMBRE",R$:
   1 "CODIGO OBJETO: ";n$'"Inicio: ";di,"Longitud: ";nb:
   1 "CODIGO FUENTE: ";n$:
   1 "CARGADOR":
   1 "CARGADOR"
   1 "Angulo inicial (grados)= ";dato:
   1 "Albacete",156
   1 "A-Geograf","B-La cruz","C-Datador","D-Tanden"
   1 "64"+NPROG)
   1 "5";"cara: ";
   1 "5";"Programa: ";
   1 "5";"Programa inexistente":
   1 "5";"'R' Vuelve al menu"
   1 "5";"'L' Carga el programa";
   1 "32"-I;C$(
   1 "22",CERO;C$(I
   1 "22",CERO;B$
   1 "22",CERO;
   1 "  Os mostrare un mapa de Espana,":
   1  inicial":
   1  SI PARA EL PROGRAMA HAZ RUN 9000
   1  JUAN CARLOS HUSILLOS  1985   
   1  A.Santamaria +
   1  /g        (4)"
   1  /(2g)     (5)"
   1  (unid: m, m/s, grados)"
   1  "con las capitales de provincia yos hare preguntas sobre ellas"
   1   Por favor, elija un programa  
   1    G.Reimers
   1      DATOS  ";
   1                                 C